; Music of Chose de Grotemburg, La (1987) (Ubi Soft) (Xavier Talgorn)
; Ripped by Megachur the 06/04/2009

; Need System Vectors

	write "CHOSEDEG.BIN"

music_date_rip	equ &0649
music_adr	equ &4000
first_theme	equ 0
last_theme	equ 0	; 0 -> 0

	read "music_header_v1_0.asm"

	jr l402a
.l4004 equ $ + 2
.l4002
	dw #0000,#0000
.l4007 equ $ + 1
.l4006
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l401a equ $ + 4
.l4019 equ $ + 3
.l4018 equ $ + 2
.l4016
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00
;
.play_music
.l402a
;
	ld hl,(l4002)
	ld a,h
	or l
	ret z
	ld a,(hl)
	bit 7,a
	jp nz,l40be
	and #07
	push hl
	call #bcad
	pop hl
	and #07
	ret z
	ld ix,l4006
	ld a,(hl)
	ld (ix+#00),a
	inc hl
	ld a,(hl)
	and a
	jr z,l4067
	ld b,a
	ld a,(l4018)
	add b
	push hl
	ld l,a
	ld h,#00
	add hl,hl
	ld de,l41e8
	add hl,de
	ld a,(hl)
	ld (ix+#03),a
	inc hl
	ld a,(hl)
	ld (ix+#04),a
	pop hl
	jr l406f
.l4067
	ld (ix+#03),#00
	ld (ix+#04),#00
.l406f
	inc hl
	ld c,(hl)
	ld b,#00
	push hl
	ld h,b
	ld l,b
	ld a,(l4019)
.l4079
	srl a
	jr nc,l407e
	add hl,bc
.l407e
	sla c
	or a
	jr nz,l4079
	ld (ix+#07),l
	ld (ix+#08),h
	pop hl
	inc hl
	ld a,(hl)
	and #1f
	ld (ix+#05),a
	ld a,(hl)
	inc hl
	ld (l4002),hl
	rlca
	rlca
	rlca
	and #07
	add a
	ld l,a
	ld h,#00
	ld de,l401a
	add hl,de
	ld a,(hl)
	ld (ix+#06),a
	inc hl
	xor a
	rld
	ld (ix+#01),a
	rld
	ld (ix+#02),a
	rld
	ld hl,l4006
	call #bcaa
	jp l402a
.l40be
	push hl
	rrca
	rrca
	rrca
	and #0e
	ld l,a
	ld h,#00
	ld de,l40d1
	add hl,de
	ld e,(hl)
	inc hl
	ld h,(hl)
	ld l,e
	ex (sp),hl
	ret
.l40d1
	dw l40e1,l40e6,l411c,l417c
	dw l413f,l4161,l4156,l414b
.l40e1
	ld de,#bcbc
	jr l40e9
.l40e6
	ld de,#bcbf
.l40e9
	ld (l4117),de
	ld a,(hl)
	and #07
	inc hl
	bit 7,(hl)
	jr z,l40f7
	set 7,a
.l40f7
	ld (l4006),a
	and #7f
	ld b,a
	ld a,(hl)
	and #7f
	push af
	inc hl
	ld a,b
	add a
	add b
	jr z,l410f
	ld c,a
	ld b,#00
	ld de,l4007
	ldir
.l410f
	ld (l4002),hl
	pop af
	ld hl,l4006
.l4117 equ $ + 1
	call #0000
	jp l402a
.l411c
	ld a,(hl)
	and #07
	add a
	push hl
	ld l,a
	ld h,#00
	ld de,l401a
	add hl,de
	ex de,hl
	pop hl
	inc hl
	ld bc,#0002
	ldir
	ld (l4002),hl
	jp l402a
.l4136
	ld a,(hl)
	inc hl
	rrca
	ld de,l4016
	ret nc
	inc de
	ret
.l413f
	call l4136
	ld a,(hl)
	ld (de),a
	inc hl
	ld (l4002),hl
	jp l402a
.l414b
	call l4136
	ld (l4002),hl
	ex de,hl
	inc (hl)
	jp l402a
.l4156
	call l4136
	ld (l4002),hl
	ex de,hl
	dec (hl)
	jp l402a
.l4161
	call l4136
	ld a,(de)
	cp (hl)
	inc hl
	jr z,l4171
	inc hl
	inc hl
	ld (l4002),hl
	jp l402a
.l4171
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	add hl,de
	ld (l4002),hl
	jp l402a
.l417c
	ld a,(hl)
	bit 3,a
	jr nz,l41a2
	push hl
	and #07
	add a
	ld l,a
	ld h,#00
	ld de,l4192
	add hl,de
	ld e,(hl)
	inc hl
	ld h,(hl)
	ld l,e
	ex (sp),hl
	ret
.l4192
	dw l41b6,l41b9,l41c3,l41cc
	dw l41d8,l41d8,l41d8,l41df
.l41a2
	db #e6
	rlca
	bit 2,a
	jr z,l41aa
	or #f8
.l41aa
	inc hl
	ld (l4002),hl
	ld hl,l4018
	add (hl)
	ld (hl),a
	jp l402a
.l41b6
	inc hl
	jr l4171
.l41b9
	inc hl
	inc hl
	inc hl
	ld (l4004),hl
	dec hl
	dec hl
	jr l4171
.l41c3
	ld hl,(l4004)
	ld (l4002),hl
	jp l402a
.l41cc
	inc hl
	ld a,(hl)
	inc hl
	ld (l4002),hl
	ld (l4019),a
	jp l402a
.l41d8
	ld hl,#0000
	ld (l4002),hl
	ret
.l41df
	inc hl
	ld (l4002),hl
	xor a
	ld (l41a2),a
.l41e8 equ $ + 1
	jp l402a
	dw #0eee,#0e18,#0d4d,#0c8e
	dw #0bda,#0b2f,#0a8f,#09f7
	dw #0968,#08e1,#0861,#07e9
	dw #0777,#070c,#06a7,#0647
	dw #05ed,#0598,#0547,#04fc
	dw #04b4,#0470,#0431,#03f4
	dw #03bc,#0386,#0353,#0324
	dw #02f6,#02cc,#02a4,#027e
	dw #025a,#0238,#0218,#01fa
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #00ef,#00e1,#00d5,#00c9
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0038,#0035,#0032
	dw #002f,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
	db #00,#00,#00,#00,#00,#00,#00,#00
	
;#0141
	
;ld hl,#2000
;ld (#4002),hl
;call #4000
	
;#2000
.l2000
	db #81,#01,#0f,#ff,#04,#81,#02,#0f
	db #ff,#08,#81,#03,#0f,#ff,#0e,#81
	db #04,#0b,#ff,#02,#81,#05,#0b,#ff
	db #08,#81,#06,#0b,#ff,#06,#81,#07
	db #0f,#ff,#04,#92,#81,#01,#01,#01
	db #01,#ff,#01,#a1,#00,#11,#a2,#00
	db #22,#a3,#00,#33,#a4,#00,#44,#a5
	db #00,#55,#a6,#00,#66,#a7,#00,#77
	db #b7,#b3,#07,#31,#00,#20,#00,#2a
	db #00,#02,#00,#1c,#25,#04,#e0,#02
	db #25,#04,#e0,#04,#1e,#04,#e0,#02
	db #1e,#04,#e0,#04,#23,#04,#e0,#02
	db #23,#04,#e0,#04,#1c,#04,#e0,#02
	db #1c,#04,#e0,#04,#25,#04,#e0,#02
	db #25,#04,#e0,#04,#1e,#04,#e0,#02
	db #1e,#04,#e0,#04,#23,#04,#e0,#02
	db #23,#04,#e0,#04,#1c,#04,#e0,#02
	db #1c,#04,#e0,#21,#00,#20,#00,#0c
	db #25,#04,#e0,#02,#25,#04,#e0,#04
	db #1e,#04,#e0,#02,#1e,#04,#e0,#04
	db #23,#04,#e0,#02,#23,#04,#e0,#04
	db #1c,#04,#e0,#02,#1c,#04,#e0,#04
	db #25,#04,#e0,#02,#25,#04,#e0,#04
	db #1e,#04,#e0,#02,#1e,#04,#e0,#04
	db #23,#04,#e0,#02,#23,#04,#e0,#04
	db #1c,#04,#e0,#02,#1c,#04,#e0,#21
	db #2c,#04,#20,#0c,#25,#04,#e0,#02
	db #25,#04,#e0,#21,#2d,#08,#20,#0c
	db #1e,#04,#e0,#02,#1e,#04,#e0,#04
	db #23,#04,#e0,#02,#23,#04,#e0,#21
	db #2c,#04,#20,#0c,#1c,#04,#e0,#02
	db #1c,#04,#e0,#21,#31,#10,#40,#0c
	db #25,#04,#e0,#02,#25,#04,#e0,#04
	db #1e,#04,#e0,#02,#1e,#04,#e0,#04
	db #23,#04,#e0,#02,#23,#04,#e0,#04
	db #1c,#04,#e0,#02,#1c,#04,#e0,#21
	db #2c,#04,#20,#0c,#25,#04,#e0,#02
	db #25,#04,#e0,#21,#2d,#08,#20,#0c
	db #1e,#04,#e0,#02,#1e,#04,#e0,#04
	db #23,#04,#e0,#02,#23,#04,#e0,#21
	db #2c,#04,#20,#0c,#1c,#04,#e0,#02
	db #1c,#04,#e0,#21,#33,#10,#40,#0c
	db #25,#04,#e0,#02,#25,#04,#e0,#04
	db #1e,#04,#e0,#02,#1e,#04,#e0,#04
	db #23,#04,#e0,#02,#23,#04,#e0,#04
	db #1c,#04,#e0,#02,#1c,#04,#e0,#21
	db #2c,#04,#20,#0c,#25,#04,#e0,#02
	db #25,#04,#e0,#21,#2d,#08,#20,#0c
	db #1e,#04,#e0,#02,#1e,#04,#e0,#04
	db #23,#04,#e0,#02,#23,#04,#e0,#21
	db #2c,#04,#20,#0c,#1c,#04,#e0,#02
	db #1c,#04,#e0,#21,#34,#04,#20,#0c
	db #25,#04,#e0,#02,#25,#04,#e0,#21
	db #33,#04,#20,#0c,#1e,#04,#e0,#02
	db #1e,#04,#e0,#21,#31,#04,#20,#0c
	db #23,#04,#e0,#02,#23,#04,#e0,#21
	db #2c,#04,#20,#0c,#1c,#04,#e0,#02
	db #1c,#04,#e0,#21,#38,#20,#60,#0c
	db #25,#04,#e0,#02,#25,#04,#e0,#04
	db #1e,#04,#e0,#02,#1e,#04,#e0,#04
	db #23,#04,#e0,#02,#23,#04,#e0,#04
	db #1c,#04,#e0,#02,#1c,#04,#e0,#04
	db #22,#04,#e0,#02,#22,#04,#e0,#04
	db #1b,#04,#e0,#02,#1b,#04,#e0,#04
	db #20,#02,#e0,#22,#20,#02,#e0,#14
	db #21,#02,#e0,#22,#21,#02,#e0,#14
	db #1a,#04,#e0,#02,#1a,#04,#e0,#21
	db #2c,#04,#20,#0c,#25,#04,#e0,#02
	db #25,#04,#e0,#21,#2d,#08,#20,#0c
	db #1e,#04,#e0,#02,#1e,#04,#e0,#04
	db #23,#04,#e0,#02,#23,#04,#e0,#21
	db #2c,#04,#20,#0c,#1c,#04,#e0,#02
	db #1c,#04,#e0,#21,#31,#10,#40,#0c
	db #25,#04,#e0,#02,#25,#04,#e0,#04
	db #1e,#04,#e0,#02,#1e,#04,#e0,#04
	db #23,#04,#e0,#02,#23,#04,#e0,#04
	db #1c,#04,#e0,#02,#1c,#04,#e0,#21
	db #2c,#04,#20,#0c,#25,#04,#e0,#02
	db #25,#04,#e0,#21,#2d,#08,#20,#0c
	db #1e,#04,#e0,#02,#1e,#04,#e0,#04
	db #23,#04,#e0,#02,#23,#04,#e0,#21
	db #2c,#04,#20,#0c,#1c,#04,#e0,#02
	db #1c,#04,#e0,#21,#33,#10,#40,#0c
	db #25,#04,#e0,#02,#25,#04,#e0,#04
	db #1e,#04,#e0,#02,#1e,#04,#e0,#04
	db #23,#04,#e0,#02,#23,#04,#e0,#04
	db #1c,#04,#e0,#02,#1c,#04,#e0,#21
	db #2c,#04,#20,#0c,#25,#04,#e0,#02
	db #25,#04,#e0,#21,#2d,#08,#20,#0c
	db #1e,#04,#e0,#02,#1e,#04,#e0,#04
	db #23,#04,#e0,#02,#23,#04,#e0,#21
	db #2c,#04,#20,#0c,#1c,#04,#e0,#02
	db #1c,#04,#e0,#21,#34,#04,#20,#0c
	db #25,#04,#e0,#02,#25,#04,#e0,#21
	db #33,#04,#20,#0c,#1e,#04,#e0,#02
	db #1e,#04,#e0,#21,#31,#04,#20,#0c
	db #23,#04,#e0,#02,#23,#04,#e0,#21
	db #2c,#04,#20,#0c,#1c,#04,#e0,#02
	db #1c,#04,#e0,#21,#2a,#18,#60,#0c
	db #25,#04,#e0,#02,#25,#04,#e0,#04
	db #1e,#04,#e0,#02,#1e,#04,#e0,#04
	db #23,#04,#e0,#02,#23,#04,#e0,#04
	db #1c,#04,#e0,#02,#1c,#04,#e0,#04
	db #25,#04,#e0,#02,#25,#04,#e0,#04
	db #1e,#04,#e0,#02,#1e,#04,#e0,#21
	db #28,#04,#20,#0c,#23,#04,#e0,#02
	db #23,#04,#e0,#21,#2a,#04,#20,#0c
	db #1c,#04,#e0,#02,#1c,#02,#e0,#31
	db #38,#04,#c0,#2a,#2c,#04,#c0,#1c
	db #20,#04,#c0,#31,#36,#08,#c0,#2a
	db #2a,#08,#c0,#1c,#1e,#08,#c0,#31
	db #34,#08,#c0,#2a,#28,#08,#c0,#1c
	db #1c,#08,#c0,#31,#33,#04,#c0,#2a
	db #27,#04,#c0,#1c,#1b,#04,#c0,#31
	db #32,#04,#c0,#2a,#26,#04,#c0,#1c
	db #1a,#04,#c0,#31,#30,#04,#8a,#2a
	db #2c,#04,#8a,#1c,#2c,#04,#8a,#31
	db #30,#04,#8a,#2a,#2c,#04,#8a,#1c
	db #2c,#04,#8a,#31,#30,#04,#8a,#2a
	db #2c,#04,#8a,#1c,#2c,#04,#8a,#81
	db #05,#0f,#ff,#02,#a4,#00,#5f,#81
	db #02,#0f,#ff,#03,#31,#40,#08,#20
	db #2a,#00,#04,#be,#1c,#19,#02,#40
	db #04,#25,#02,#40,#22,#00,#02,#be
	db #14,#25,#02,#40,#22,#00,#02,#be
	db #14,#25,#02,#40,#31,#3f,#08,#20
	db #2a,#00,#02,#8a,#1c,#19,#02,#40
	db #22,#00,#04,#c3,#14,#25,#02,#40
	db #04,#25,#02,#40,#22,#00,#02,#be
	db #14,#25,#02,#40,#31,#40,#08,#20
	db #2a,#00,#04,#be,#1c,#20,#02,#40
	db #04,#2c,#02,#40,#22,#00,#02,#be
	db #14,#2c,#02,#40,#22,#00,#02,#be
	db #14,#2c,#02,#40,#31,#3d,#08,#20
	db #2a,#00,#04,#8a,#1c,#20,#02,#40
	db #04,#2c,#02,#40,#22,#00,#04,#c3
	db #14,#2c,#02,#40,#04,#2c,#02,#40
	db #31,#3f,#08,#20,#2a,#00,#04,#be
	db #1c,#17,#02,#40,#04,#23,#02,#40
	db #22,#00,#02,#be,#14,#23,#02,#40
	db #22,#00,#02,#be,#14,#23,#02,#40
	db #31,#3d,#08,#20,#2a,#00,#02,#8a
	db #1c,#17,#02,#40,#22,#00,#04,#c3
	db #14,#23,#02,#40,#04,#23,#02,#40
	db #22,#00,#02,#be,#14,#23,#02,#40
	db #31,#3f,#08,#20,#2a,#00,#04,#be
	db #1c,#14,#02,#40,#04,#20,#02,#40
	db #22,#00,#02,#be,#14,#20,#02,#40
	db #22,#00,#02,#be,#14,#20,#02,#40
	db #31,#3c,#08,#20,#2a,#00,#02,#8a
	db #1c,#14,#02,#40,#22,#00,#02,#8a
	db #14,#20,#02,#40,#22,#00,#02,#8a
	db #14,#20,#02,#40,#22,#00,#02,#8a
	db #14,#20,#02,#40,#31,#40,#08,#20
	db #2a,#00,#04,#be,#1c,#19,#02,#40
	db #04,#25,#02,#40,#22,#00,#02,#be
	db #14,#25,#02,#40,#22,#00,#02,#be
	db #14,#25,#02,#40,#31,#3f,#08,#20
	db #2a,#00,#02,#8a,#1c,#19,#02,#40
	db #22,#00,#04,#c3,#14,#25,#02,#40
	db #04,#25,#02,#40,#22,#00,#02,#be
	db #14,#25,#02,#40,#31,#40,#08,#20
	db #2a,#00,#04,#be,#1c,#20,#02,#40
	db #04,#2c,#02,#40,#22,#00,#02,#be
	db #14,#2c,#02,#40,#22,#00,#02,#be
	db #14,#2c,#02,#40,#31,#3d,#08,#20
	db #2a,#00,#04,#8a,#1c,#20,#02,#40
	db #04,#2c,#02,#40,#22,#00,#04,#c3
	db #14,#2c,#02,#40,#04,#2c,#02,#40
	db #31,#42,#08,#20,#2a,#00,#04,#be
	db #1c,#21,#02,#40,#04,#2d,#02,#40
	db #22,#00,#02,#be,#14,#2d,#02,#40
	db #22,#00,#02,#be,#14,#2d,#02,#40
	db #31,#40,#08,#20,#2a,#00,#02,#8a
	db #1c,#21,#02,#40,#22,#00,#04,#c3
	db #14,#2d,#02,#40,#04,#2d,#02,#40
	db #22,#00,#02,#be,#14,#2d,#02,#40
	db #31,#42,#08,#20,#2a,#00,#04,#be
	db #1c,#17,#02,#40,#04,#23,#02,#40
	db #22,#00,#02,#be,#14,#23,#02,#40
	db #22,#00,#02,#be,#14,#23,#02,#40
	db #31,#3f,#08,#20,#2a,#00,#02,#8a
	db #1c,#17,#02,#40,#22,#00,#02,#8a
	db #14,#23,#02,#40,#22,#00,#02,#8a
	db #14,#23,#02,#40,#22,#00,#02,#8a
	db #14,#23,#02,#40,#31,#40,#08,#20
	db #2a,#00,#04,#be,#1c,#19,#02,#40
	db #04,#25,#02,#40,#22,#00,#02,#be
	db #14,#25,#02,#40,#22,#00,#02,#be
	db #14,#25,#02,#40,#31,#3f,#08,#20
	db #2a,#00,#02,#8a,#1c,#19,#02,#40
	db #22,#00,#04,#c3,#14,#25,#02,#40
	db #04,#25,#02,#40,#22,#00,#02,#be
	db #14,#25,#02,#40,#31,#40,#08,#20
	db #2a,#00,#04,#be,#1c,#20,#02,#40
	db #04,#2c,#02,#40,#22,#00,#02,#be
	db #14,#2c,#02,#40,#22,#00,#02,#be
	db #14,#2c,#02,#40,#31,#3d,#08,#20
	db #2a,#00,#04,#8a,#1c,#20,#02,#40
	db #04,#2c,#02,#40,#22,#00,#04,#c3
	db #14,#2c,#02,#40,#04,#2c,#02,#40
	db #31,#3f,#08,#20,#2a,#00,#04,#be
	db #1c,#17,#02,#40,#04,#23,#02,#40
	db #22,#00,#02,#be,#14,#23,#02,#40
	db #22,#00,#02,#be,#14,#23,#02,#40
	db #31,#3d,#08,#20,#2a,#00,#02,#8a
	db #1c,#17,#02,#40,#22,#00,#04,#c3
	db #14,#23,#02,#40,#04,#23,#02,#40
	db #22,#00,#02,#be,#14,#23,#02,#40
	db #31,#3f,#08,#20,#2a,#00,#04,#be
	db #1c,#14,#02,#40,#04,#20,#02,#40
	db #22,#00,#02,#be,#14,#20,#02,#40
	db #22,#00,#02,#be,#14,#20,#02,#40
	db #31,#3c,#08,#20,#2a,#00,#02,#8a
	db #1c,#14,#02,#40,#22,#00,#02,#8a
	db #14,#20,#02,#40,#22,#00,#02,#8a
	db #14,#20,#02,#40,#22,#00,#02,#8a
	db #14,#20,#02,#40,#31,#40,#08,#20
	db #2a,#00,#04,#be,#1c,#19,#02,#40
	db #04,#25,#02,#40,#22,#00,#02,#be
	db #14,#25,#02,#40,#22,#00,#02,#be
	db #14,#25,#02,#40,#31,#3f,#08,#20
	db #2a,#00,#02,#8a,#1c,#19,#02,#40
	db #22,#00,#04,#c3,#14,#25,#02,#40
	db #04,#25,#02,#40,#22,#00,#02,#be
	db #14,#25,#02,#40,#31,#40,#08,#20
	db #2a,#00,#04,#be,#1c,#20,#02,#40
	db #04,#2c,#02,#40,#22,#00,#02,#be
	db #14,#2c,#02,#40,#22,#00,#02,#be
	db #14,#2c,#02,#40,#31,#3d,#08,#20
	db #2a,#00,#04,#8a,#1c,#20,#02,#40
	db #04,#2c,#02,#40,#22,#00,#04,#c3
	db #14,#2c,#02,#40,#04,#2c,#02,#40
	db #31,#42,#08,#20,#2a,#00,#04,#be
	db #1c,#21,#02,#40,#04,#2d,#02,#40
	db #22,#00,#02,#be,#14,#2d,#02,#40
	db #22,#00,#02,#be,#14,#2d,#02,#40
	db #31,#40,#08,#20,#2a,#00,#02,#8a
	db #1c,#21,#02,#40,#22,#00,#04,#c3
	db #14,#2d,#02,#40,#04,#2d,#02,#40
	db #22,#00,#02,#be,#14,#2d,#02,#40
	db #31,#42,#08,#20,#2a,#00,#04,#be
	db #1c,#17,#02,#40,#04,#23,#02,#40
	db #22,#00,#02,#be,#14,#23,#02,#40
	db #22,#00,#02,#be,#14,#23,#02,#40
	db #31,#3f,#08,#20,#2a,#00,#02,#8a
	db #1c,#17,#02,#40,#22,#00,#02,#8a
	db #14,#23,#02,#40,#22,#00,#02,#8a
	db #14,#23,#02,#40,#22,#00,#02,#8a
	db #14,#23,#02,#40,#31,#00,#20,#20
	db #81,#05,#0f,#ff,#02,#a1,#00,#5f
	db #2a,#00,#04,#be,#1c,#00,#04,#be
	db #22,#00,#02,#be,#14,#00,#04,#c3
	db #02,#00,#02,#be,#22,#00,#02,#8a
	db #14,#00,#04,#be,#02,#00,#04,#c3
	db #04,#00,#04,#c3,#02,#00,#02,#be
	db #22,#00,#04,#be,#14,#00,#04,#be
	db #22,#00,#02,#be,#14,#00,#04,#c3
	db #02,#00,#02,#be,#22,#00,#04,#8a
	db #14,#00,#04,#be,#22,#00,#04,#c3
	db #14,#00,#04,#c3,#31,#38,#08,#20
	db #2a,#00,#04,#be,#1c,#00,#04,#be
	db #22,#00,#02,#be,#14,#00,#04,#c3
	db #02,#00,#02,#be,#31,#38,#08,#20
	db #2a,#00,#02,#8a,#1c,#00,#04,#be
	db #02,#00,#04,#c3,#04,#00,#04,#c3
	db #02,#25,#02,#be,#31,#38,#08,#20
	db #2a,#00,#04,#be,#1c,#00,#04,#be
	db #22,#00,#02,#be,#14,#00,#04,#c3
	db #02,#00,#02,#be,#31,#38,#08,#20
	db #2a,#00,#02,#8a,#1c,#00,#04,#be
	db #02,#00,#02,#8a,#22,#00,#02,#8a
	db #14,#00,#04,#c3,#02,#00,#02,#8a
	db #31,#38,#08,#20,#2a,#00,#04,#be
	db #1c,#00,#04,#be,#22,#00,#02,#be
	db #14,#00,#04,#c3,#02,#00,#02,#be
	db #31,#38,#08,#20,#2a,#00,#02,#8a
	db #1c,#00,#04,#be,#02,#00,#04,#c3
	db #04,#00,#04,#c3,#02,#00,#02,#be
	db #31,#38,#08,#20,#2a,#00,#04,#be
	db #1c,#00,#04,#be,#22,#00,#02,#be
	db #14,#00,#04,#c3,#02,#00,#02,#be
	db #31,#38,#08,#20,#2a,#00,#04,#8a
	db #1c,#00,#04,#be,#22,#00,#04,#c3
	db #14,#00,#04,#c3,#31,#38,#08,#20
	db #2a,#00,#02,#8a,#1c,#00,#04,#be
	db #02,#00,#02,#8a,#22,#00,#02,#9f
	db #14,#00,#04,#c3,#02,#00,#02,#8a
	db #31,#38,#08,#20,#2a,#00,#02,#9f
	db #1c,#00,#04,#be,#02,#00,#02,#8f
	db #22,#00,#02,#9f,#14,#00,#04,#c3
	db #02,#00,#02,#94,#31,#38,#08,#20
	db #2a,#00,#02,#9f,#1c,#00,#04,#be
	db #02,#00,#02,#8a,#22,#00,#02,#9f
	db #14,#00,#04,#c3,#02,#00,#02,#9f
	db #31,#38,#08,#20,#2a,#00,#02,#9f
	db #1c,#00,#04,#be,#02,#00,#02,#9f
	db #22,#00,#02,#c3,#14,#00,#02,#c3
	db #b0,#79,#fa,#00,#00,#00,#00,#00
	
;
.init_music	; added by Megachur
;
	ld hl,l2000
	ld (l4002),hl

	ld hl,evt_bloc
	ld bc,#8100
	ld de,play_music
	jp #bcd7	; call play_music every CRT interrupt
evt_bloc
	db #00,#00,#00,#00,#00,#00
	db #00,#00,#00

;
.game_name
	db "Chose de Grotemburg",0
.game_year
	db "1987",0
.game_publisher
	db "Ubi Soft",0
.music_author
	db "Xavier Talgorn",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
